home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / menus.dcl < prev    next >
Encoding:
Modula Definition  |  1996-12-20  |  1.5 KB  |  47 lines  |  [TEXT/3PRM]
  1. definition module menus;
  2.  
  3. import mac_types;
  4.  
  5. //    Initialization and Allocation
  6.  
  7. InitMenus :: !Toolbox -> Toolbox;
  8. NewMenu :: !Int !{#Char} !Toolbox -> (!MacMenuHandle, !Toolbox);
  9. DisposeMenu :: !MacMenuHandle !Toolbox -> Toolbox;
  10.  
  11. //    Forming the menus
  12.  
  13. AppendMenu :: !MacMenuHandle !{#Char} !Toolbox -> Toolbox;
  14. AddResMenu :: !MacMenuHandle !Int !Toolbox -> Toolbox;
  15.  
  16. //    Forming the Menu Bar
  17.  
  18. InsertMenu :: !MacMenuHandle !Int !Toolbox -> Toolbox;
  19. ClearMenuBar :: !Toolbox -> Toolbox;
  20. DrawMenuBar :: !Toolbox -> Toolbox;
  21. DeleteMenu :: !Int !Toolbox -> Toolbox;
  22. CalcMenuSize :: !MacMenuHandle !Toolbox -> Toolbox;
  23. GetMHandle :: !Int !Toolbox -> (!MacMenuHandle, !Toolbox);
  24. GetMenuBar :: !Toolbox -> (!Handle, !Toolbox);
  25. SetMenuBar :: !Handle !Toolbox -> Toolbox;
  26. InsMenuItem :: !MacMenuHandle !{#Char} !Int !Toolbox -> Toolbox;
  27. DelMenuItem :: !MacMenuHandle !Int !Toolbox -> Toolbox;
  28.  
  29. //    Choosing From a Menu
  30.  
  31. MenuSelect :: !Int !Int !Toolbox -> (!Int,!Int,!Toolbox);
  32. MenuKey :: !Int !Toolbox -> (!Int,!Int,!Toolbox);
  33. HiliteMenu :: !Int !Toolbox -> Toolbox;
  34. PopUpMenuSelect :: !MacMenuHandle !Int !Int !Int !Toolbox -> (!Int,!Int,!Toolbox);
  35.  
  36. //    Controlling the Appearance of Items
  37.  
  38. SetItem :: !MacMenuHandle !Int !{#Char} !Toolbox -> Toolbox;
  39. GetItem :: !MacMenuHandle !Int !{#Char} !Toolbox -> (!{#Char},!Toolbox);
  40. DisableItem :: !MacMenuHandle !Int !Toolbox -> Toolbox;
  41. EnableItem :: !MacMenuHandle !Int !Toolbox -> Toolbox;
  42. CheckItem :: !MacMenuHandle !Int !Bool !Toolbox -> Toolbox;
  43.  
  44. //    Miscellaneous Routines
  45.  
  46. CountMItems :: !MacMenuHandle !Toolbox -> (!Int,!Toolbox);
  47.